/*********************************************************
This looks at all our various datasets from this project

Created Oct 2022
Author Laura Gee

Updated Mar 2024 LG
*********************************************************/
clear all


//------------Formatting--------------//
/* Sets Latex fonts for outputting graphs for paper */
/* Switch to Sans if outputting for presentations */
*graph set window fontfacesans   "LM Sans 12"
graph set window fontface   "LM Roman 10"
*graph set window fontfaceserif  "LM Roman 10"
*graph set svg fontfacesans   "LM Sans 12"
graph set svg fontface   "LM Roman 10"
*graph set svg fontfaceserif  "LM Roman 10"
//* When outputting, "graph export "NAME.svg", replace as(svg)"
/* Sets a simple mono scheme */
/* Should still be able to specify colors in a graph command */
set scheme s1mono

//------------BLS Motivation Figure 1 Panel A ------------//
//Source https://www.bls.gov/tus/tables/a6-1519.htm
//American Time Use Data 2015-19
{
clear all
use "$data/1_public_data/BLS_excerpt.dta"
gen totaltime=mothersft+fathersft
gen mothers_pct=mothersft/totaltime
gen fathers_pct=fathersft/totaltime
graph bar (mean) mothers_pct (mean) fathers_pct, text(1.0 50 "0.27  11.42  6.37  0.56 17.89  0.08  0.16   0.38   0.87  1.21  0.95", size(small)) ///
	over(var1, label(angle(60)) sort(mothers_pct)) ///
	stack bar(1, fcolor(orange) lcolor(orange)) bar(2, fcolor(ltblue%70) lcolor(ltblue)) ///
	ytitle(Proportion) ylab (,nogrid) ///
	legend(order(1 "Mothers Full-time" 2 "Fathers Full-time") row(1)) ///
	bargap(30) yline(.5) yscale(range(0(.1)1))
	graph display, ysize(6) xsize(5.5)
graph export "$output/figures/Figure1_PanelA.png", as(png) replace
disp 0.27  + 11.42  + 6.37  + 0.56 + 17.89  + 0.08  + 0.16   + 0.38   + 0.87  + 1.21  + 0.95 //sums to 40.16 hours of 48
}

